'---------------------------------------------------------------'
' VB-Helper, Version 1.02                                       '
' Copyright (c) 1994 SoftCircuits Programming                   '
' Redistributed by Permission.                                  '
'                                                               '
' SoftCircuits Programming                                      '
' P.O. Box 16262                                                '
' Irvine, CA 92713                                              '
' CompuServe: 72134,263                                         '
'                                                               '
' This program may be used and distributed freely on the        '
' condition that it is distributed in full and unchanged, and   '
' that no fee is charged for such use and distribution with the '
' exception or reasonable media and shipping charges.           '
'                                                               '
' You may also incorporate any or all portions of this program, '
' and/or include the VB-Helper DLL, as part of your own         '
' programs and distribute such programs without payment of      '
' royalties on the condition that such program do not duplicate '
' the overall functionality of VB-Helper and/or any of its demo '
' programs, and that you agree to the following disclaimer.     '
'                                                               '
' WARNING: Accessing the low-level services of Windows, DOS and '
' the ROM-BIOS using VB-Helper is an extremely powerful         '
' technique that, if used incorrectly, can cause possible       '
' permanent damage and/or loss of data. You are responsible for '
' determining appropriate use of any and all files included in  '
' this package. SoftCircuits will not be held liable for any    '
' damages resulting from the use of these files.                '
'                                                               '
' SOFTCIRCUITS SPECIFICALLY DISCLAIMS ALL WARRANTIES,           '
' INCLUDING, WITHOUT LIMITATION, ALL IMPLIED WARRANTIES OF      '
' MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, AND        '
' NON-INFRINGEMENT OF THIRD PARTY RIGHTS.                       '
'                                                               '
' UNDER NO CIRCUMSTANCES WILL SOFTCIRCUITS BE LIABLE FOR        '
' SPECIAL, INCIDENTAL, CONSEQUENTIAL, INDIRECT, OR ANY OTHER    '
' DAMAGES OR CLAIMS ARISING FROM THE USE OF THIS PRODUCT,       '
' INCLUDING LOSS OF PROFITS OR ANY OTHER COMMERCIAL DAMAGES,    '
' EVEN IF WE HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH       '
' DAMAGES.                                                      '
'                                                               '
' Please contact SoftCircuits Programming if you have any       '
' questions concerning these conditions.                        '
'---------------------------------------------------------------'

' VB-Helper DLL declarations
Type REGS
    AX As Integer
    BX As Integer
    CX As Integer
    DX As Integer
    SI As Integer
    DI As Integer
    Flags As Integer
    DS As Integer
    ES As Integer
End Type

Declare Function vbGetCtrlModel Lib "VBHELPER.DLL" (ByVal Ctrl As Long) As Long
Declare Sub vbGetData Lib "VBHELPER.DLL" (ByVal Pointer As Long, Variable As Any, ByVal nCount As Integer)
Declare Function vbGetFullPath Lib "VBHELPER.DLL" (PartialPath As String) As String
Declare Function vbGetLongPtr Lib "VBHELPER.DLL" (nVariable As Any) As Long
Declare Function vbInp Lib "VBHELPER.DLL" (ByVal nPort As Integer) As Integer
Declare Function vbInpw Lib "VBHELPER.DLL" (ByVal nPort As Integer) As Integer
Declare Sub vbInterrupt Lib "VBHELPER.DLL" (ByVal IntNum As Integer, InRegs As REGS, OutRegs As REGS)
Declare Sub vbInterruptX Lib "VBHELPER.DLL" (ByVal IntNum As Integer, InRegs As REGS, OutRegs As REGS)
Declare Sub vbOut Lib "VBHELPER.DLL" (ByVal nPort As Integer, ByVal nData As Integer)
Declare Sub vbOutw Lib "VBHELPER.DLL" (ByVal nPort As Integer, ByVal nData As Integer)
Declare Function vbPeek Lib "VBHELPER.DLL" (ByVal nSegment As Integer, ByVal nOffset As Integer) As Integer
Declare Function vbPeekw Lib "VBHELPER.DLL" (ByVal nSegment As Integer, ByVal nOffset As Integer) As Integer
Declare Sub vbPoke Lib "VBHELPER.DLL" (ByVal nSegment As Integer, ByVal nOffset As Integer, ByVal nValue As Integer)
Declare Sub vbPokew Lib "VBHELPER.DLL" (ByVal nSegment As Integer, ByVal nOffset As Integer, ByVal nValue As Integer)
Declare Function vbRecreateCtrl Lib "VBHELPER.DLL" (ByVal Ctrl As Long) As Integer
Declare Sub vbSetData Lib "VBHELPER.DLL" (ByVal Pointer As Long, Variable As Any, ByVal nCount As Integer)
Declare Function vbVarPtr Lib "VBHELPER.DLL" (Variable As Any) As Integer
Declare Function vbVarSeg Lib "VBHELPER.DLL" (Variable As Any) As Integer